home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 16
/
AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso
/
pd
/
anwendungen
/
amicad
/
arexx_english
/
zoom.amicad
< prev
Wrap
Text File
|
1998-03-06
|
630b
|
23 lines
/* Not really a zoom program, but it works... */
/* © R.Florac, 3 Mars 1998, version 1.1e */
options results
signal on error /* error handling */
signal on syntax
'SCREENMODE=SCRMODE:FONT=FONTNAME(SELSHEET(-1)):FONT_SIZE=FONTSIZE(SELSHEET(-1))'
'SCREENHEIGHT=SHEIGHT:SCREENWIDTH=SWIDTH:WINDOW_WIDTH=MESURE(2):WINDOW_HEIGHT=MESURE(3):X_LEFT=MESURE(0):Y_TOP=MESURE(1)'
'SCREEN(135168,320,256,"topaz.font",8)'
exit
syntax:
erreur=RC
'MESSAGE("Script Zoom.AmiCAD"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Script Zoom.AmiCAD"+CHR(10)+"Error in line 'SIGL'")'
exit